setwd("~/workspace/twitter_russia/psrm_replication_materials")

options(stringsAsFactors=F)

library(tidyverse)

blm_tweets <- read.csv(
    "data/blklivesmatter_tweets.csv",
    colClasses=rep("character",34)
)

blm_tweets <- blm_tweets %>%
    select(id)

labeled_tweets <- read.csv("data/fulloutput_900x3_450LR.csv", colClasses="character")

labeled_tweets <- labeled_tweets %>%
    select(tweet_id, category, party)

write.csv(
    blm_tweets,
    file="data/blklivesmatter_tweet_ids.csv",
    row.names=F
)

write.csv(
    blm_tweets,
    file="data/fulloutput_900x3_450LR_ids_and_labels.csv",
    row.names=F
)
